home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Apple II Magazines (DO)
/
Softdisk Magazette Volume 2, No. 03 (1982-11)(Softdisk)(Side A).zip
/
Softdisk Magazette Volume 2, No. 03 (1982-11)(Softdisk)(Side A).do
/
NOVEMBER.COVER.bas
< prev
next >
Wrap
BASIC Source File
|
1996-12-24
|
2KB
|
45 lines
100 REM ***********************
110 REM * SOFTDISK COVER PAGE *
120 REM * V2 #3 NOVEMBER 1982 *
130 REM * *
140 REM * BY JIM GANZ *
150 REM * 82 SPRING LANE *
160 REM * WEST HARTFORD, CT. *
170 REM * 06107 *
180 REM * *
190 REM * TEXT GENERATED WITH *
200 REM * "HIGHER TEXT" *
210 REM * *
220 REM * PICTURE PACKING AND *
230 REM * UNPACKING BY *
240 REM * DAVID LUBAR FROM *
250 REM *"CREATIVE COMPUTING,"*
260 REM * JUNE 1981 PP.128-38 *
270 REM ***********************
280 REM
290 POKE 230,32: HCOLOR= 0: HPLOT 0,0: CALL 62454: TEXT : HOME :D$ = CHR$(4)
300 GOSUB 400: IF PEEK(4096) < >173 OR PEEK(4097) THEN PRINT D$;"BLOAD COVER.UNPACK"
310 PRINT D$;"BLOAD COVER.NOV.PCKD"
320 VTAB 22: HTAB 7: PRINT "PRESS ANY KEY TO VIEW COVER"
330 VTAB 24: HTAB 7: PRINT "(THEN PRESS AGAIN TO EXIT)";
340 POKE -16368,0: CALL -756
350 POKE 33,1: FOR X = 0 TO 19: POKE 32,X: HOME : POKE 32,39 -X: HOME : NEXT : TEXT
360 POKE -16300,0: POKE -16302,0: POKE -16297,0: POKE -16304,0
370 CALL 4096: POKE -16368,0
380 CALL -756: PRINT
390 PRINT D$;"RUN KICK.IT.OFF"
400 VTAB 3: INVERSE : FOR X = 0 TO 9: HTAB 11: PRINT SPC( 29): PRINT : NEXT
410 NORMAL
420 VTAB 1: HTAB 3: PRINT "S O F T D I S K M A G A Z E T T E"
430 VTAB 5: PRINT "QUOTE": PRINT "OF": PRINT "THE": PRINT "MONTH"
440 PRINT : PRINT "--->"
450 INVERSE
460 VTAB 6:X = 13
470 HTAB X: PRINT CHR$(34)"TO A PRIMITIVE CULTURE,"
480 HTAB X: PRINT "A TECHNOLOGICALLY ADVANCED"
490 HTAB X: PRINT "SOCIETY IS INDISTINGUISH-"
500 HTAB X: PRINT "ABLE FROM MAGIC." CHR$(34)
530 NORMAL : VTAB 16
540 PRINT " * QUOTED FROM AUTHOR ARTHUR C. CLARKE"
550 VTAB 19: HTAB 12: PRINT "COVER BY JIM GANZ"
560 RETURN